:pinfo XP::SET-PREFIX-STACK-PTR!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-PREFIX-STACK-PTR!@$ (SET-STRUCTURE-ELT S 19 VALUE))) NIL T T
:pinfo XP::SET-BUFFER-OFFSET!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BUFFER-OFFSET!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo XP::SET-LINE-NO!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-LINE-NO!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo XP::SET-OTHERS!@$ (S VALUE) NIL (XP:PPRINT-DISPATCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-OTHERS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo XP::OTHERS (S) NIL (XP:PPRINT-DISPATCH) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::OTHERS (STRUCTURE-ELT S 3))) NIL T T
:pinfo XP::BLOCK-STACK-PTR (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::BLOCK-STACK-PTR (STRUCTURE-ELT S 9))) NIL T T
:pinfo XP::CONSES-WITH-CARS (S) NIL (XP:PPRINT-DISPATCH) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::CONSES-WITH-CARS (STRUCTURE-ELT S 1))) NIL T T
:pinfo XP::SET-PREFIX!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-PREFIX!@$ (SET-STRUCTURE-ELT S 17 VALUE))) NIL T T
:pinfo XP::SET-CHARPOS!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-CHARPOS!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo XP::CHAR-MODE-COUNTER (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::CHAR-MODE-COUNTER (STRUCTURE-ELT S 6))) NIL T T
:pinfo XP::SPECIFIER-FN (XP::SPEC) NIL NIL NIL NIL NIL NIL T
:pinfo XP::LINE-LIMIT (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::LINE-LIMIT (STRUCTURE-ELT S 3))) NIL T T
:pinfo XP::SET-BLOCK-STACK!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BLOCK-STACK!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo XP::POP-CHAR-MODE (XP::XP) NIL NIL NIL NIL NIL NIL T
:pinfo XP::COPY-XP-STRUCTURE (S) NIL NIL NIL NIL NIL NIL T
:pinfo XP::LINE-NO (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::LINE-NO (STRUCTURE-ELT S 4))) NIL T T
:pinfo XP::COPY-ENTRY (S) NIL NIL NIL NIL NIL NIL T
:pinfo XP::SET-CONSES-WITH-CARS!@$ (S VALUE) NIL (XP:PPRINT-DISPATCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-CONSES-WITH-CARS!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo XP::SET-PREFIX-STACK!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-PREFIX-STACK!@$ (SET-STRUCTURE-ELT S 18 VALUE))) NIL T T
:pinfo XP::PUSH-PREFIX-STACK (XP::XP) NIL NIL NIL NIL NIL NIL T
:pinfo XP::FREE-PRETTY-PRINT-STREAM (XP::XP) NIL NIL NIL NIL NIL NIL T
:pinfo XP::SET-FULL-SPEC!@$ (S VALUE) NIL (XP::ENTRY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-FULL-SPEC!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo XP::SET-STRUCTURES!@$ (S VALUE) NIL (XP:PPRINT-DISPATCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-STRUCTURES!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo XP::FLUID-ENTRY-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo XP::CONVERT-BODY (XP::SPEC) NIL NIL NIL NIL NIL NIL T
:pinfo XP::FREE-CIRCULARITY-HASH-TABLE (XP::TABLE) NIL NIL NIL NIL NIL NIL T
:pinfo XP::SET-LINEL!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-LINEL!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo XP::SET-SUFFIX!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-SUFFIX!@$ (SET-STRUCTURE-ELT S 20 VALUE))) NIL T T
:pinfo XP::SET-BUFFER!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BUFFER!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo XP::SET-QUEUE!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-QUEUE!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo XP::CHAR-MODE (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::CHAR-MODE (STRUCTURE-ELT S 5))) NIL T T
:pinfo XP::BUFFER-OFFSET (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::BUFFER-OFFSET (STRUCTURE-ELT S 13))) NIL T T
:pinfo XP::SUFFIX (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::SUFFIX (STRUCTURE-ELT S 20))) NIL T T
:pinfo XP::QUEUE (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::QUEUE (STRUCTURE-ELT S 14))) NIL T T
:pinfo XP::SET-BLOCK-STACK-PTR!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BLOCK-STACK-PTR!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo XP::SET-DEPTH-IN-BLOCKS!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-DEPTH-IN-BLOCKS!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo XP::DEPTH-IN-BLOCKS (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::DEPTH-IN-BLOCKS (STRUCTURE-ELT S 7))) NIL T T
:pinfo XP::PREFIX-STACK (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::PREFIX-STACK (STRUCTURE-ELT S 18))) NIL T T
:pinfo XP::PREFIX-STACK-PTR (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::PREFIX-STACK-PTR (STRUCTURE-ELT S 19))) NIL T T
:pinfo XP::GLOBALS_INIT9 NIL NIL NIL NIL NIL NIL NIL T
:pinfo XP::SET-QRIGHT!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-QRIGHT!@$ (SET-STRUCTURE-ELT S 16 VALUE))) NIL T T
:pinfo XP::FLUSH (XP::XP) NIL NIL NIL NIL NIL NIL T
:pinfo XP::SET-CHAR-MODE-COUNTER!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-CHAR-MODE-COUNTER!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo XP::FLUID-XP-STRUCTURE-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo XP::SET-LINE-LIMIT!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-LINE-LIMIT!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo XP::ENQUEUE (XP::XP TYPE XP::KIND &OPTIONAL XP::ARG) NIL NIL NIL NIL NIL NIL T
:pinfo XP::FULL-SPEC (S) NIL (XP::ENTRY) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::FULL-SPEC (STRUCTURE-ELT S 3))) NIL T T
:pinfo XP::SET-CHAR-MODE!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-CHAR-MODE!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo XP::CHARPOS (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::CHARPOS (STRUCTURE-ELT S 11))) NIL T T
:pinfo XP::LINEL (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::LINEL (STRUCTURE-ELT S 2))) NIL T T
:pinfo XP::BUFFER (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::BUFFER (STRUCTURE-ELT S 10))) NIL T T
:pinfo XP::SET-QLEFT!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-QLEFT!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo XP::SET-BASE-STREAM!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BASE-STREAM!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo XP::SET-BUFFER-PTR!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BUFFER-PTR!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T